home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / ticker2.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-06-14  |  3KB  |  76 lines
  1. /**********************************************************************
  2.  *
  3.  * Ticker/2 installation program.
  4.  *
  5.  * Version 1.0
  6.  *
  7.  * Copyright (C) 1996 by Kirchhoff & Grill Software GmbH
  8.  * All Rights Reserved.
  9.  *
  10.  **********************************************************************/
  11.  
  12.  
  13. "@ECHO OFF"
  14.  
  15. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  16. call SysLoadFuncs
  17.  
  18. call SysCls
  19.  
  20. destinationPath = SysSearchPath('.','.')
  21.  
  22. if destinationPath = "" then
  23.   do
  24.     say ""
  25.     say "Cannot determine current directory!"
  26.   end
  27. else
  28.   do
  29.     say "Installing Ticker/2 in "destinationPath"."
  30.     rc = SysFileTree( destinationPath, "dirs", "D")
  31.     if (dirs.0 = 0) then
  32.       do
  33.         rc = SysMkDir(destinationpath)
  34.         if (rc \= 0) then
  35.           do
  36.             say "Couldn't create directory "destinationPath"!"
  37.           exit
  38.         end
  39.       end
  40.  
  41.   /* create a new folder */
  42.   call SysCreateObject "WPFolder", "Ticker/2", "<WP_DESKTOP>", ,
  43.      "OBJECTID=<HWB_TICKER2FOLDER>", "fail"
  44.  
  45.   /* create the program object */
  46.   rc =SysCreateObject("WPProgram", "Ticker/2", "<HWB_TICKER2FOLDER>", ,
  47.      "PROGTYPE=PM;EXENAME="destinationPath"\ticker.exe;PARAMETERS=scripts/medium.cmd scripts/commerce.cmd %*;"||,
  48.      "OBJECTID=<HWB_TICKER2>", "update")
  49.  
  50.   /* create the INF object */
  51.   rc =SysCreateObject("WPProgram", "Ticker/2 REXX Extentions Programmers Reference", "<HWB_TICKER2FOLDER>", ,
  52.      "PROGTYPE=PM;EXENAME=view.exe;PARAMETERS="destinationPath"\tickerp.inf;"||,
  53.      "OBJECTID=<HWB_TICKER2PREF>", "update")
  54.  
  55.   /* create Homepage Object */
  56.   rc = SysCreateObject("WebExplorer_Url", "KGS Homepage", "<HWB_TICKER2FOLDER>", 
  57.     "OBJECTID=<HWB_TICKER2HP>;LOCATOR=http://ourworld.compuserve.com/homepages/hmkirchhKGS", U)
  58.  
  59.   /* create a shadow of the scripts directory */
  60.   call SysCreateObject "WPShadow", "Ticker/2 Scripts", "<HWB_TICKER2FOLDER>", ,
  61.      "OBJECTID=<HWB_TICKER2SCRIPTS>;SHADOWID="destinationPath"\scripts", "update"
  62.  
  63.   /* create the Registration object */
  64.   rc =SysCreateObject("WPProgram", "Ticker/2 Registration", "<HWB_TICKER2FOLDER>", ,
  65.      "PROGTYPE=PM;EXENAME=e.exe;PARAMETERS="destinationPath"\register.txt;"||,
  66.      "OBJECTID=<HWB_TICKER2REG>", "update")
  67.  
  68.   /* create the Read.me object */
  69.   rc =SysCreateObject("WPProgram", "Ticker/2 Read Me", "<HWB_TICKER2FOLDER>", ,
  70.      "PROGTYPE=PM;EXENAME=e.exe;PARAMETERS="destinationPath"\readme.txt;"||,
  71.      "OBJECTID=<HWB_TICKER2RME>", "update")
  72.  
  73. end
  74.  
  75. exit
  76.